home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / biz / dbase / ADM201.lha / ADM / Installieren < prev    next >
Text File  |  1995-06-04  |  6KB  |  209 lines
  1. ; Installer installation script for ADM
  2. ; $VER: Install ADM 1.43 (22.11.94)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set default_lang 1)
  7. (set #msg-doserror-msg  "DOS Fehler %ld aufgetreten.")
  8. (set #msg-dest-prompt   "Bitte wählen Sie einen Platz für das ADM-Verzeichnis")
  9. (set #msg-dest-help     "Hier kann das Verzeichnis ausgewählt werden,\nwo ein ADM-Verzeichnis angelegt werden soll\n")
  10. (set #msg-mkadmdir-prompt
  11.         (cat    "\n\n\nSie haben ein Verzeichnis mit dem Namen 'ADM' ausgewählt!\n"
  12.                         "Heißt das, daß ADM in DIESES Verzeichnis "
  13.                         "installiert werden soll?\n\n"
  14.                         "(eventuelle Adreßdaten werden nicht überschrieben)"
  15.         )
  16. )
  17. (set #msg-mkadmdir-help
  18.         (cat    "'Yes' installiert ADM direkt in dieses Verzeichnis, "
  19.                 "'No' erstellt ein neues Verzeichnis namens 'ADM'"
  20.         )
  21. )
  22. (set #msg-installto-msg "\n\n\nADM wird installiert ins Verzeichnis: \n\n" )
  23. (set #msg-setdirtree-working "Setze das aktuelle Verzeichnis...")
  24. (set #msg-defexe-prompt "Kopiere Dateien...")
  25. (set #msg-keyfile-prompt
  26.      (cat "Vielen Dank für die Registrierung von ADM!\n\n"
  27.           "Jetzt wird Dein PERSÖNLICHES Key-File in DEVS: "
  28.           "installiert. Da es Deinen Namen und Deine Adresse "
  29.           "enthält, darf es *KEINESFALLS WEITERGEGEBEN* werden!"
  30.      )
  31. )
  32. (set #msg-keyfile-help
  33.      (cat "\nDas PERSÖNLICHE Key-File kann nun ins entsprechende "
  34.           "Verzeichnis kopiert werden.\n"
  35.           "Da es Deinen Namen und Deine Adresse enthält, darf es "
  36.           " *KEINESFALLS WEITERGEGEBEN* werden bzw. in "
  37.           "falsche Hände geraten!"
  38.      )
  39. )
  40.  
  41.  
  42. (user 2)
  43.  
  44. (if (< (/ (getversion) 65536) 37)
  45.   (
  46.     (abort "ADM benötigt mindestens OS 2.04!")
  47.   )
  48. )
  49.  
  50. (complete 0)
  51.  
  52. (message "\nAddressMaster Installation\n\n\n"
  53.          "Hiermit kann\n\nADM\n- DIE Adreßverwaltung -\n\n"
  54.          "installiert werden.\n\n"
  55.          "AddressMaster (ADM) © 1993-1994 Jan Geissler\n"
  56.          "All rights reserved."
  57. )
  58.  
  59. (set ADMdir
  60.         (askdir
  61.                 (prompt #msg-dest-prompt )
  62.                 (default "Work:")
  63.                 (help   #msg-dest-help)
  64.         )
  65. )
  66.  
  67. (if (= (fileonly ADMDir) "ADM")
  68.         (
  69.                 (set MakeADMDir
  70.                         (askbool
  71.                         (prompt #msg-mkadmdir-prompt)
  72.                                 (help   #msg-mkadmdir-help )
  73.  
  74.                                 (default 1)
  75.                         )
  76.                 )
  77.  
  78.                 (if (= MakeADMDir 1)
  79.                         (
  80.                                 (set ADMDir (pathonly ADMDir))
  81.  
  82.                                 (message #msg-installto-msg (tackon ADMDir "ADM"))
  83.  
  84.                         )
  85.                         (
  86.                                 (message #msg-installto-msg (tackon ADMDir "ADM"))
  87.  
  88.                                 (makedir (tackon ADMdir "ADM")
  89.                                         (infos)
  90.                                 )
  91.                         )
  92.                 )
  93.  
  94.  
  95.         )
  96.         (
  97.                 (makedir (tackon ADMdir "ADM")
  98.                         (infos)
  99.                 )
  100.         )
  101.  
  102. )
  103.  
  104. (working #msg-setdirtree-working)
  105.  
  106. (makeassign "ADM" (tackon ADMdir "ADM"))
  107.  
  108. (if (exists "ADM:AddressMaster.info")
  109.     (
  110.        (copyfiles
  111.                (prompt #msg-icon-prompt)
  112.                (source "ADM:AddressMaster.info")
  113.                (dest "ram:" )
  114.                (newname "ADMSrcIcon.info")
  115.                (infos)
  116.        )
  117.        (set iconcopied 1)
  118.     )
  119. )
  120.  
  121. (copyfiles
  122.         (prompt #msg-defexe-prompt)
  123.         (source "")
  124.         (dest (tackon ADMDir "ADM") )
  125.         (infos)
  126.         (all)
  127. )
  128.  
  129. (if iconcopied
  130.     (run "c/IconType ram:ADMSrcIcon ADM:AddressMaster")
  131. )
  132.  
  133. (complete 70)
  134.  
  135. (run "delete " (tackon "ADM:" "Installieren"))
  136. (run "delete " (tackon "ADM:" "Installieren.info"))
  137.  
  138. (complete 75)
  139.  
  140. (if (exists "/Key-File/ADM.key")
  141.  
  142.     (copyfiles
  143.             (prompt #msg-keyfile-prompt)
  144.             (source "/Key-File/ADM.key")
  145.             (dest "devs:" )
  146.             (help #msg-keyfile-help)
  147.             (infos)
  148.             (confirm)
  149.     )
  150. )
  151.  
  152. (complete 80)
  153.  
  154. (copylib
  155.   (prompt "\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
  156.   (help "ReqTools.library wird, falls installiert, von ADM "
  157.         "von ADM dazu verwendet, die Anwählfunktion"
  158.         "tastenbedienbar zu machen.\n\n"
  159.         @copylib-help)
  160.   (source "libs/ReqTools.library")
  161.   (dest "LIBS:")
  162.   (confirm)
  163. )
  164.  
  165. (complete 90)
  166.  
  167. (copylib
  168.   (prompt "\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
  169.   (help "RexxReqTools.library wird von diversen "
  170.         "ADM-ARexx-Makros verwendet\n\n"
  171.         @copylib-help)
  172.   (source "libs/rexxreqtools.library")
  173.   (dest "LIBS:")
  174.   (confirm)
  175. )
  176.  
  177. (complete 100)
  178.  
  179. (message "\n\nFertig.\n\n"
  180.          "AddressMaster (ADM) ist nun komplett installiert.\n\n"
  181.          "Um alte Adreßdaten (z.B. von Addresser, DFA oder "
  182.          "MasterAddress) weiterzuverwenden, können sie mit dem "
  183.          "dem Paket beiliegenden Datenumwandler komfortabel "
  184.          "in ADM-Dateien umgewandelt werden."
  185.  
  186. )
  187.  
  188. (message "\n\n\n"
  189.          "ADM enthält eine einfache Online-Hilfsfunktion.\n\n"
  190.          "Diese wird mit der Help-Taste (im Hauptfenster oder in "
  191.          "einem Eingabefeld) bzw. bei Anklicken eines Funktionsknopfs (Gadgets) "
  192.          "bei gehaltener Control(Ctrl)-Taste aktiviert.\n\n"
  193.          "So kann man ADM einfach kennenlernen!"
  194. )
  195.  
  196. (message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
  197.          "Wenn Du ADM kennengelernt hast und es öfters benutzen "
  198.          "willst, solltest Du Dich für nur DM 25,- registrieren lassen!\n\n"
  199.          "Nur so ist sichergestellt, daß ADM auch in Zukunft "
  200.          "weiterentwickelt wird und weitere Shareware-Produkte "
  201.          "für den Amiga entstehen!"
  202. )
  203.  
  204. (message "\n\nIch freue mich auch über Vorschläge\nund jede Art von 'Feed-Back'!\n\n\nViel Spaß mit ADM\n\nwünscht\n\nJan Geißler")
  205.  
  206. (exit)
  207.  
  208. ; that'll keep him happy
  209.